!file name=geom.h
      character*30 localfn
      integer nreg,tnode,ncomp,nout,ng,bcb,bcu
      integer,pointer,dimension(:) :: acom,comp,sn
      integer,dimension(2,2) :: idm
      real(NBF) kconv,fconv
      real(NBF),dimension(2) :: bcin0_p1,bcm_p1
      real(NBF),dimension(4) :: bcref,bcflux0,bcin0_p3
      real(NBF),dimension(2,4) :: bcm_p3
      real(NBF),pointer,dimension(:) :: rgz,hz,rhz
!
      common/aa/nreg,tnode,ncomp,nout,ng,bcb,bcu
      common/bb/acom,comp,sn
      common/cc/idm
      common/dd/kconv,fconv
      common/ee/bcref,bcflux0,bcin0_p1,bcm_p1,bcin0_p3,bcm_p3
      common/ff/rgz,hz,rhz
